home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 34 / Amiga Format CD34 (1998-11-20)(Future Publishing)(GB)[!][Christmas issue].iso / -websites- / f1_gp / ftp / rexx / f1gppalette.lha / F1GPPalette.pprx < prev   
Text File  |  1997-01-23  |  1KB  |  64 lines
  1. /* Personal Paint Amiga Rexx script - Copyright © 1996-1997 Oliver Roberts */
  2.  
  3. /* $VER: F1GPPalette.pprx 1.0 */
  4.  
  5. /** ENG
  6.    Description
  7. */
  8.  
  9. IF ARG(1, EXISTS) THEN
  10.     PARSE ARG PPPORT test.
  11. ELSE
  12.     PPPORT = 'PPAINT'
  13.  
  14. IF ~SHOW('P', PPPORT) THEN DO
  15.     IF EXISTS('PPaint:PPaint') THEN DO
  16.         ADDRESS COMMAND 'Run >NIL: PPaint:PPaint'
  17.         DO 30 WHILE ~SHOW('P',PPPORT)
  18.              ADDRESS COMMAND 'Wait >NIL: 1 SEC'
  19.         END
  20.     END
  21.     ELSE DO
  22.         SAY "Personal Paint could not be loaded."
  23.         EXIT 10
  24.     END
  25. END
  26.  
  27. IF ~SHOW('P', PPPORT) THEN DO
  28.     SAY 'Personal Paint Rexx port could not be opened'
  29.     EXIT 10
  30. END
  31.  
  32. ADDRESS VALUE PPPORT
  33. OPTIONS RESULTS
  34. OPTIONS FAILAT 10000
  35.  
  36. Get 'LANG'
  37. IF RESULT = 1 THEN DO        /* Deutsch */
  38.     txt_err_oldclient = 'Für dieses Skript_ist eine neuere Version_von Personal Paint erforderlich'
  39. END
  40. ELSE IF RESULT = 2 THEN        /* Italiano */
  41.     txt_err_oldclient = 'Questa procedura richiede_una versione più recente_di Personal Paint'
  42. ELSE                /* English */
  43.     txt_err_oldclient = 'This script requires a newer_version of Personal Paint'
  44.  
  45. Version 'REXX'
  46. IF RESULT < 7 THEN DO
  47.     RequestNotify 'PROMPT "'txt_err_oldclient'"'
  48.     EXIT 10
  49. END
  50.  
  51. LessColors 21
  52. GetColors FROM 14 TO 20 RGB
  53. oldcols = RESULT
  54. SetColors 'FROM 24 COLORS "'oldcols'" RGB'
  55.  
  56. f1gpcols = "255 255 0 170 0 0 204 0 0 238 0 0 51 68 102 221 221 238 68 102 119 102 119 153 119 153 170 153 170 204"
  57. f1gpblue = "0 85 204"
  58. f1gpwhite = "255 255 255"
  59.  
  60. SetColors 'FROM 14 COLORS "'f1gpcols'" RGB'
  61. SetColors 'FROM 31 COLORS "'f1gpwhite'" RGB'
  62.  
  63. RemapImage
  64.